home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / spr.move demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  695 b   |  24 lines
  1. 200 print"[147]":v=53248:sys49700
  2. 210 forn=0to125:readq:poke49900+n,q:next
  3. 215 fori=2040to2047:pokei,13:next
  4. 220 pokev+23,255:pokev+29,255
  5. 230 g=v:fori=0to7:x(i)=g:g=g+1:y(i)=g:g=g+1:next
  6. 240 fori=0to7:pokex(i),120:pokey(i),120:next
  7. 250 fori=0to7:pokev+39+i,1:next
  8. 260 !val1,0:pokev+21,255
  9. 270 !run0,2,5:!run1,1,8:!run2,3,10:!run3,4,0
  10. 280 !run4,6,255:!run5,7,35:!run6,8,20:!run7,9,4
  11. 290 fori=0to15000:next
  12. 300 fori=0to7:!stopi:next
  13. 310 fori=0to500:next:pokev+21,1:r=8
  14. 320 pokex(0),200:pokey(0),200
  15. 325 !run0,r,50
  16. 330 fori=0to200:next:!val1,1
  17. 340 fori=0to200:next:!val1,0
  18. 350 ifpeek(y(0))<50orpeek(y(0))>200thenr=10-r
  19. 360 goto325
  20. 1000 data,,,,,,32,32,32,16,80,64,8,112,128,7,255,,1,252,,,136,,1,140
  21. 1010 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  22. 2000 data,,,,,,,32,,,80,,,112,,127,255,240,1,252,,,136,,1,140
  23. 2010 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  24.